home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_57
/
stosword.acb
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1985-11-19
|
56KB
|
585 lines
1 REM ***************************
10 DIM
100 VARNAME
1000 REM low resolution mode
1001 FADE
1002 IF
1003 VARNAME
101 IF
1010 REM medium resolution mode
1011 FADE
1012 IF
1013 VARNAME
1020 REM high resolution mode
1022 IF
1025 VARNAME
105 VARNAME
11 GOSUB
1100 VARNAME
1101 IF
1102 RETURN
1110 VARNAME
1115 VARNAME
1116 IF
1117 VARNAME
1118 INC
1120 VARNAME
1121 VARNAME
1122 LOCATE
1130 IF
1131 IF
1132 LOCATE
1150 MENU
1151 RESERVE
1152 SET ZONE
1153 SET ZONE
1154 VARNAME
1155 VARNAME
1156 LOCATE
1157 INK
1158 INK
1160 WHILE
1161 VARNAME
1162 IF
1163 IF
1164 IF
1167 WEND
1169 SCREEN COPY
1199 REM gosub 1200 with AL$ containing data 1-2 line of text (| as seperator) ended by ## then data for 2 buttons (^ as seperator)
12 VARNAME
1200 MENU
1210 PAPER
1211 CURS
1215 RESET ZONE
1216 IF
1220 LOCATE
1225 SET ZONE
1230 VARNAME
1231 IF
1235 VARNAME
1250 MENU
1255 PAPER
1259 CURS
1300 INVERSE
1301 CURS
1302 VARNAME
1310 INVERSE
1311 CURS
1312 LOCATE
1320 SHADE
1321 IF
1322 VARNAME
1325 VARNAME
1328 IF
1329 SHADE
1350 REM redefine menu with control characters
1351 RESTORE
1352 READ
1353 MENU$
1354 READ
1355 IF
1356 MENU$
1357 INC
1358 MENU$
1359 VARNAME
1360 REM size memory & set MXP to optimum or to Xk if value at start(7)+$1FE > 0
1361 IF
1362 VARNAME
1363 IF
1365 RETURN
1370 PRINT
1371 IF
1372 VARNAME
1375 RESERVE
1377 VARNAME
1378 INC
1379 VARNAME
1380 IF
1381 VARNAME
1382 VARNAME
1383 VARNAME
1400 MENU
1401 VARNAME
1402 VARNAME
1404 VARNAME
1405 VARNAME
1406 VARNAME
1407 INC
1409 LOCATE
1411 FOR
1412 VARNAME
1413 VARNAME
1414 IF
1415 VARNAME
1416 IF
1430 WEND
1449 MENU
1450 IF
1451 VARNAME
1452 IF
1453 IF
1499 RETURN
15 KEY
1500 REM enter text in I$, from origional I$ to same length , at Tx,Ty K$ contains first keystroke
1501 LOCATE
1502 WHILE
1503 IF
1504 IF
1505 IF
1506 IF
1520 VARNAME
1530 VARNAME
1531 IF
1532 IF
1533 IF
1539 RETURN
16 VARNAME
1600 REM show controls
1601 VARNAME
1602 LOCATE
1603 LOCATE
1604 LOCATE
1605 LOCATE
1606 LOCATE
1608 LOCATE
1609 LOCATE
1610 LOCATE
1611 WHILE
1612 MENU
1620 FOR
1621 VARNAME
1622 VARNAME
1623 IF
1629 GOSUB
17 IF
18 SCROLL
189 RETURN
190 VARNAME
191 IF
199 RETURN
2 REM * *
20 VARNAME
200 VARNAME
2000 REM print routines
2005 REM print line L$
201 IF
2010 VARNAME
2011 VARNAME
2012 INC
2013 IF
2015 VARNAME
2016 VARNAME
2017 IF
2019 IF
202 GOSUB
2020 IF
2021 VARNAME
2022 VARNAME
2023 VARNAME
2024 IF
2025 IF
2026 IF
2027 LPRINT
2029 RETURN
2030 VARNAME
2031 VARNAME
2032 VARNAME
2033 VARNAME
2034 VARNAME
2035 VARNAME
2037 RETURN
2040 VARNAME
2041 VARNAME
2042 VARNAME
2043 VARNAME
2044 VARNAME
2045 VARNAME
2047 RETURN
2050 VARNAME
2051 VARNAME
2052 VARNAME
2053 VARNAME
2054 VARNAME
2055 VARNAME
2057 RETURN
2060 VARNAME
2061 VARNAME
2062 VARNAME
2063 VARNAME
2064 VARNAME
2065 VARNAME
2067 RETURN
2100 ON ERROR
2101 VARNAME
2102 VARNAME
2103 VARNAME
2104 VARNAME
2105 LPRINT
2106 INC
2110 MENU
2120 IF
2121 VARNAME
2130 REM print page
2131 ON ERROR
2132 VARNAME
2134 VARNAME
2135 LPRINT
2136 LPRINT
279 RETURN
280 VARNAME
281 IF
282 IF
289 RETURN
299 RETURN
3 REM * STOS Word . *
30 GOSUB
300 MENU
301 IF
302 IF
303 IF
304 IF
305 IF
306 IF
307 IF
308 IF
309 IF
310 IF
311 IF
312 IF
313 IF
314 IF
315 IF
316 IF
317 IF
318 IF
319 IF
320 IF
321 IF
322 IF
323 IF
324 IF
325 IF
326 IF
327 IF
328 IF
329 IF
330 IF
333 IF
334 LOCATE
335 IF
336 IF
337 IF
338 IF
339 IF
340 IF
341 IF
342 IF
343 IF
344 IF
345 IF
346 IF
347 IF
349 RETURN
350 DEC
351 IF
352 LOCATE
360 DEC
361 IF
362 RETURN
365 DEC
370 INC
371 RETURN
380 VARNAME
385 VARNAME
386 INC
387 VARNAME
390 VARNAME
391 VARNAME
392 REPEAT
393 VARNAME
395 VARNAME
397 IF
399 RETURN
4 REM * By Aaron Fothergill *
400 IF
401 VARNAME
402 IF
403 IF
404 IF
405 IF
406 VARNAME
410 VARNAME
415 VARNAME
416 IF
430 VARNAME
432 RETURN
45 VARNAME
450 REM insert line at IL
451 VARNAME
452 VARNAME
46 VARNAME
460 VARNAME
461 DEC
462 IF
463 RETURN
464 VARNAME
465 RETURN
466 VARNAME
467 VARNAME
468 IF
469 RETURN
47 VARNAME
470 IF
471 IF
472 VARNAME
475 VARNAME
48 VARNAME
480 VARNAME
481 SET CURS
485 VARNAME
49 VARNAME
490 IF
491 RETURN
5 REM * Shadow Software 1989 *
50 MENU
500 MENU
5000 CLW
5010 VARNAME
5011 VARNAME
504 LOCATE
505 VARNAME
506 WHILE
507 RETURN
520 IF
525 RETURN
530 REM layout
531 VARNAME
532 VARNAME
535 IF
55 ON ERROR
550 RETURN
56 UNDER
560 REM printer settings
561 VARNAME
562 VARNAME
563 VARNAME
564 IF
567 VARNAME
568 IF
569 RETURN
57 IF
570 REM convert string of hex numbers into character string
571 VARNAME
572 VARNAME
573 IF
575 VARNAME
58 GOSUB
580 VARNAME
581 VARNAME
582 VARNAME
583 VARNAME
584 VARNAME
585 VARNAME
589 RETURN
59 WHILE
590 VARNAME
591 VARNAME
593 REM save printer/layout settings
594 VARNAME
595 OPEN OUT
596 PRINT
597 PRINT
598 FOR
599 CLOSE
6 REM * For STOS User Club *
60 VARNAME
600 ON ERROR
6000 DATA
6001 DATA
6002 DATA
6003 DATA
6004 DATA
6005 DATA
601 MENU
602 VARNAME
603 GOSUB
605 OPEN IN
606 WHILE
607 VARNAME
608 VARNAME
609 VARNAME
61 VARNAME
610 VARNAME
611 OPEN OUT
612 VARNAME
613 VARNAME
615 VARNAME
616 OPEN OUT
617 VARNAME
618 VARNAME
619 RETURN
62 IF
620 VARNAME
621 OPEN IN
622 WHILE
623 VARNAME
624 OPEN IN
625 WHILE
629 RETURN
640 REM load icons
641 VARNAME
642 LOAD
649 RETURN
650 REM Print File
652 GOSUB
655 REM Print Page
656 GOSUB
660 REM quit
661 VARNAME
662 RETURN
670 REM load printer/layout settings
671 VARNAME
672 OPEN IN
673 LINE INPUT
674 LINE INPUT
675 FOR
676 CLOSE
677 VARNAME
679 RETURN
680 REM size memory
681 VARNAME
682 IF
683 VARNAME
684 RETURN
690 VARNAME
691 VARNAME
692 IF
693 KILL
695 VARNAME
696 GOSUB
697 VARNAME
698 INC
699 INC
7 REM * *
70 IF
700 MENU
701 VARNAME
702 VARNAME
703 VARNAME
704 IF
705 VARNAME
706 VARNAME
707 VARNAME
710 VARNAME
720 VARNAME
721 VARNAME
722 IF
723 IF
724 VARNAME
725 GOSUB
726 IF
727 IF
728 RETURN
740 REM next page
741 VARNAME
742 INC
760 VARNAME
761 VARNAME
770 REM previous page
771 VARNAME
790 MENU
8 REM ***************************
800 MENU
801 REM mark start block
802 VARNAME
805 REM mark end block
806 VARNAME
810 REM remove block
811 IF
812 VARNAME
813 VARNAME
814 IF
815 VARNAME
829 RETURN
830 VARNAME
831 IF
832 IF
833 IF
834 VARNAME
835 VARNAME
836 VARNAME
837 IF
838 IF
839 RETURN
849 RETURN
850 REM Move Block
851 IF
852 IF
853 IF
854 VARNAME
855 VARNAME
856 IF
857 VARNAME
869 RETURN
870 REM write block to disk
871 IF
872 IF
873 VARNAME
874 OPEN OUT
879 ON ERROR
880 VARNAME
881 VARNAME
882 IF
883 VARNAME
885 GOSUB
886 VARNAME
890 GOSUB
891 VARNAME
895 GOSUB
896 VARNAME
9 VARNAME
900 VARNAME
901 REM place icon
902 VARNAME
905 CURS
906 LOCATE
907 INVERSE
908 VARNAME
910 VARNAME
911 VARNAME
912 IF
913 IF
915 WEND
916 VARNAME
920 REM word wrap
929 RETURN
930 VARNAME
931 VARNAME
932 VARNAME
933 IF
934 IF
935 IF
936 GOSUB
937 IF
938 INC
939 VARNAME
940 REM left justify (to left margin)
941 VARNAME
942 VARNAME
950 REM place icon (actually place it)
951 MENU
960 REM centre justify (from left margin)
961 VARNAME
962 VARNAME
963 VARNAME
97 IF
98 IF
980 REM right justify (to right margin)
981 VARNAME
982 VARNAME
99 GOTO
990 VARNAME
991 INC
992 RETURN
999 END